home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
macros
/
latex209
/
contrib
/
misc
/
underlin.sty
(
.txt
)
< prev
next >
Wrap
LaTeX Document
|
1993-01-11
|
5KB
|
144 lines
\def\fileversion{1.0a}
\def\filedate{89/05/10}
\def\docdate{89/05/17}
\iffalse
% Style-option `underlin' to use with LaTeX v2.09
% Copyright (C) 1987, 1989 Rainer Schoepf, all rights reserved.
% Copying of this file is authorized only if either
% (1) you make absolutely no changes to your copy, including name, or
% (2) if you do make changes, you name it something other than
% underlin.sty.
% This restriction helps ensure that all styles developed at Mainz
% are identical.
% Please send bug reports to:
% R.~Sch\"opf
% Institut f\"ur Physik
% JoGu Universit"at
% D-6500 Mainz
% Federal Republic of Germany
% Bitnet: <SCHOEPF@DMZNAT51>
% \title{Two {\sf pagestyles} for underlining headers\thanks{This file
% has version number \fileversion, last
% revised \filedate, documentation dated \docdate.}}
% \author{Rainer Sch\"opf \\
% Institut f\"ur Physik \\
% Johannes Gutenberg Universit\"at Mainz}
% \date{\quad}
% \maketitle
% \begin{abstract}
% This style option implements two new {\sf pagestyles}
% {\tt underline} and {\tt myunderline} that are similar
% to the standard {\tt headings} and {\tt myheadings}
% {\sf pagestyles} but provide a horizontal line just below
% the head line.
% \end{abstract}
% The purpose of this style option file is to provide a way to
% underline a running head.
% This is done by redefining the \verb+\@evenhead+ and \verb+\@oddhead+
% macros.
% To understand this you must know that whenever a given pagestyle
% (say `xxx') is selected by a \verb+\pagestyle{xxx}+ command the
% macro \verb+\ps@xxx+ is executed.
% Therefore we define a macro \verb+\ps@underline+ which is called
% when you say \verb+\pagestyle{underline}+.
% To provide for a rule with user-defined headings we also define
% the pagestyle `myunderline' , i.e.\ the macro \verb+\ps@myunderline+.
% \StopEventually{}
% As always we begin by identifying the latest version of this file
% on the VDU an in the transcript file.
% \begin{macrocode}
\typeout{Style-Option: `underline'
\fileversion \space <\filedate> (RmS)}
\typeout{Documentation dated
\@spaces \@spaces \space\space\space <\docdate> (RmS)}
% \end{macrocode}
% \begin{macro}{\ps@underline}
% The first thing the macro \verb+\ps@underline+
% does is to call
% \verb+\ps@headings+ to set up everything like the `headings'
% pagestyle does.
% Here we do not need to distinguish onesided and twosided
% printing since this is already done correctly by
% \verb+\ps@headings+.
% \begin{macrocode}
\def\ps@underline{\ps@headings
% \end{macrocode}
% Then we redefine \verb+\@evenhead+. The first part is a copy of
% the definition in \verb+\ps@headings+.
% This has the advantage that this style option works with
% document styles `article', `report', and `book'.
% \begin{macrocode}
\def\@evenhead{\rm \thepage\hfil \sl\leftmark\null
% \end{macrocode}
% Additionally we include a \verb+\vadjust+ primitive. The effect of
% this primitive is to add its argument after the current
% \verb+\hbox+ to the enclosing vertical list.
% \begin{macrocode}
\vadjust{\vskip .3ex\hrule}}%
% \end{macrocode}
% The \verb+\@oddhead+ macro is constructed
% analogously.\footnote{{\tt\bslash null} is defined to be
% {\tt\bslash hbox\char`\{\char`\}} in
% {\tt lplain.tex}.}
% \begin{macrocode}
\def\@oddhead{\null\sl \rightmark \hfil \rm\thepage
\vadjust{\vskip .3ex\hrule}}}
% \end{macrocode}
% \end{macro}
% \begin{macro}{\ps@myunderline}
% The macro \verb+\ps@myunderline+ for underlining user defined
% running heads is constructed analogously.
% \begin{macrocode}
\def\ps@myunderline{\ps@myheadings
\def\@oddhead{\null\sl \rightmark \hfil
\rm\thepage\vadjust{\vskip .3ex\hrule}}%
\def\@evenhead{\rm\thepage\hfil\sl \leftmark \null
\vadjust{\vskip .3ex\hrule}}}
% \end{macrocode}
% \end{macro}
% Remarks, comments, complaints, etc. should be sent to: \\[3mm]
% Rainer Sch\"opf \\
% Institut f\"ur Physik \\
% Universit\"at Mainz \\
% Staudinger Weg 7 \\
% D-6500 Mainz \\
% West Germany \\
% \tt <SCHOEPF@DMZNAT51.BITNET>
% \Finale
\endinput
Upper-case ABCDEFGHIJKLMNOPQRSTUVWXYZ
Lower-case abcdefghijklmnopqrstuvwxyz
Digits 0123456789
Exclamation !
Double quote "
Hash (number) #
Dollar $
Percent %
Ampersand &
Acute accent '
Left paren (
Right paren )
Asterisk *
Plus +
Comma ,
Minus -
Point .
Solidus /
Colon :
Semicolon ;
Less than <
Equals =
Greater than >
Question mark ?
Commercial at @
Left bracket [
Backslash \
Right bracket ]
Circumflex ^
Underscore _
Grave accent `
Left brace {
Vertical bar |
Right brace }
Tilde ~